ocr: control.pas - D X control procedure Trormi.buttonzUllCk (Sender: TObject) I : var icount : smallint; begin for iCount := 0 to componentCount-1 do begin if components(iCount) is ICheckBOX then TCheckBox (Componentslicount)).Checked := False; end; end; 51: 10 Insert
